home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / 00002Series_152.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  1.6 KB  |  56 lines
  1. on mouseUp
  2.   put EMPTY into field "op"
  3.   if the hilite of cast "b_DC1" = 1 then
  4.     put "DC1:Dustcap; " after field "op"
  5.   end if
  6.   if the hilite of cast "b_SEAL" = 1 then
  7.     put "SEAL:DirtBan Seal; " after field "op"
  8.   end if
  9.   if the hilite of cast "b_BRK2" = 1 then
  10.     put "BRK2:Wheel Brake; " after field "op"
  11.   end if
  12.   if the hilite of cast "b_BRK4" = 1 then
  13.     put "BRK4:Total Lock Brake; " after field "op"
  14.   end if
  15.   if the hilite of cast "b_BRK6" = 1 then
  16.     put "BRK6:Direction Lock; " after field "op"
  17.   end if
  18.   if the hilite of cast "b_BRK1" = 1 then
  19.     put "BRK1:Side Lock; " after field "op"
  20.   end if
  21.   if the hilite of cast "b_tg1" = 1 then
  22.     put "TG1:Metal; " after field "op"
  23.   end if
  24.   if the hilite of cast "b_tg2" = 1 then
  25.     put "TG2:Plastic; " after field "op"
  26.   end if
  27.   if the hilite of cast "b_fsi" = 1 then
  28.     put "FSI; " after field "op"
  29.   end if
  30.   if the hilite of cast "b_AX1" = 1 then
  31.     put "AX1: Zerk Axle; " after field "op"
  32.   end if
  33.   if the hilite of cast "b_AX2" = 1 then
  34.     put "AX2: Solid Axle; " after field "op"
  35.   end if
  36.   if the hilite of cast "b_NT1" = 1 then
  37.     put "NT1: Thick Lock Nut; " after field "op"
  38.   end if
  39.   if the hilite of cast "b_lpbrake" = 1 then
  40.     put "2" before field "Tblcaste,CA_MOD"
  41.   end if
  42.   delete char -30000 of field "op"
  43.   delete char -30000 of field "op"
  44.   put field "op" into field "mainop"
  45.   puppetSound("foundspec")
  46.   puppetTransition(47, 1, 8)
  47.   put the number of lines in field "tblca_Fe,FEATURE"
  48.   if the number of chars in field "Tblca_Fe,FEATURE" > 200 then
  49.     put field "Tblca_Fe,FEATURE" into field "specbfea"
  50.     play frame "specb"
  51.     abort()
  52.   end if
  53.   play frame "speca"
  54.   abort()
  55. end
  56.